home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / TF.M < prev    next >
Encoding:
Text File  |  1989-04-28  |  470 b   |  26 lines
  1. MODULE T;
  2.  
  3. FROM InOut IMPORT WriteLn, WriteString, Write, OpenInput, OpenOutput, Read,
  4.        RedirectInput, CloseOutput, ReadString;
  5.  
  6. VAR i,a:CARDINAL;
  7.     ch:CHAR;
  8.     s1:ARRAY [0..19] OF CHAR;
  9.     s2:ARRAY [0..4] OF CHAR;
  10.  
  11. BEGIN
  12.   RedirectInput ('B.TXT');
  13.   WriteLn;
  14.   Write ('1');
  15.   WriteLn;
  16.   WriteString ('1234 ?');
  17.   WriteLn;
  18.   s1:= 'lösdkflö1köe    qkd';
  19.   ReadString (s1);
  20.   WriteLn;
  21.   WriteString (s1);
  22.   WriteLn;
  23.   Read (ch)
  24. END T.
  25.  
  26. ə